home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 139 / 139side3.d64 / filebase 64.bas (.txt) < prev    next >
Commodore BASIC  |  2022-08-29  |  332b  |  14 lines
  1. 100 rem filebase 64 loader ************
  2. 120 iff=0thenf=1:gosub300
  3. 140 iff=1thenf=2:loadf$+".bin",dv,1
  4. 160 iff=2thenf=3:loadf$+".dvc",dv,1
  5. 210 iff=3thenf=4:load"opsyst*",dv,1
  6. 220 sys3072
  7. 300 poke53280,00:poke53281,00
  8. 310 print"[147]"chr$(8)chr$(14)
  9. 320 printtab(11)"[153]     [204]oading     "
  10. 330 printtab(11)"[159][198]ile [194]ase 64 v1.0"
  11. 340 printtab(11)"[150][194]y  [202]ohn [211]erafino"
  12. 360 dv=peek(186):f$="filebase 64"
  13. 370 return
  14.